home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
forlib1.arc
/
TOD.ASM
< prev
next >
Wrap
Assembly Source File
|
1986-01-15
|
1KB
|
67 lines
DATA SEGMENT PUBLIC 'DATA'
TITLE__ DB 'TITLE: DOS DATE/TIME FOR MS FORTRAN'
COPY_R DB ' (C) John R. Petrocelli'
DB ' Schenectady,NY '
DB ' 01/13/86 '
DATA ENDS
DGROUP GROUP DATA
CODE SEGMENT 'CODE'
ASSUME CS:CODE,DS:DGROUP,SS:DGROUP
PUBLIC PCDATE
PCDATE PROC FAR
PUSH BP
PUSH AX
PUSH BX
PUSH CX
PUSH DX
MOV AX,2A00H
INT 21H
MOV BP,SP
LES BX,DWORD PTR[BP+14]
MOV WORD PTR[BX],0000H
MOV [BX],DL
LES BX,DWORD PTR[BP+18]
MOV WORD PTR[BX],0000H
MOV [BX],DH
LES BX,DWORD PTR[BP+22]
MOV WORD PTR[BX],0000H
MOV [BX],CX
POP DX
POP CX
POP BX
POP AX
POP BP
RET 12
PCDATE ENDP
PUBLIC PCTIME
PCTIME PROC FAR
PUSH BP
PUSH AX
PUSH BX
PUSH CX
PUSH DX
MOV AX,2C00H
INT 21H
MOV BP,SP
LES BX,DWORD PTR[BP+14]
MOV WORD PTR[BX],0000H
MOV [BX],DL
LES BX,DWORD PTR[BP+18]
MOV WORD PTR[BX],0000H
MOV [BX],DH
LES BX,DWORD PTR[BP+22]
MOV WORD PTR[BX],0000H
MOV [BX],CL
LES BX,DWORD PTR[BP+26]
MOV WORD PTR[BX],0000H
MOV [BX],CH
POP DX
POP CX
POP BX
POP AX
POP BP
RET 16
PCTIME ENDP
CODE ENDS
END